home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / comm1 / cnetwho.lha / who / Loader < prev    next >
Text File  |  1996-05-08  |  939b  |  16 lines
  1. /**************************************************************************\
  2.             $VER: CNet WHO Loader, v2.61 (8-May-96) by Dotoran!
  3. \**************************************************************************/
  4. options results;gu=getuser;gu 1311992;dp=result;gu 39;md=result
  5. ban="mail:users/"md"/_Banners";gu 38;who=result;a=getclip('IdleWhoB0')
  6. if a="" then do;call open(f1,dp"IdlePorts","r");a=word(readln(f1),1)
  7.   do i=1 to a ; b=readln(f1) ; parse var b p'|'info
  8.   call setclip('IdleWhoB'p,info) ; end i ; call close(f1) ; end
  9. if exists(ban) then do ; call open(f1,ban,'r')
  10.   do i=1 to 9 ; w.i=readln(f1) ; end i ; call close(f1)
  11.   setobject w.1 ; putuser 38 ; call open(f1,ban,'w')
  12.   do i=2 to 9 ; call writeln(f1,w.i) ; end i ; call writeln(f1,who)
  13.   call close(f1) ; end
  14. /** Last Edited: 8-May-96 *************************************************\
  15. \****************************************** Frontiers BBS (716)/823-9892 **/
  16.